home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib05.dsk / HI-RES NUMBERS.bas < prev    next >
BASIC Source File  |  2023-02-26  |  1KB  |  25 lines
  1. 10  REM  ***************************
  2. 11  REM  **  HI-RES NUMBERS       **
  3. 12  REM  **  BY ROBERT R. DEVINE  **
  4. 13  REM  **  COPYRIGHT (C) 1980   **
  5. 14  REM  **  BY MICRO-SPARC INC   **
  6. 15  REM  ***************************
  7. 100  REM  LOAD 10000-10035 ROUTINE THEN GOSUB IT AT START OF PROGRAM
  8. 150  REM  GOSUB 9900 TO PRINT NUMBER
  9. 160  REM  N IS NUMBER TO BE DRAWN
  10. 170  REM  X,Y IS LOCATION TO DRAW NUMBER
  11. 200  REM  CHARACTERS ARE 0 THRU 9
  12. 300  REM  HOWEVER THEY ARE LISTED IN THE SHAPE TABLE AS 1 THRU 10
  13. 400  REM  TO DRAW THEM USE FORMAT 'DRAW N+1 AT X,Y'
  14. 1000  GOSUB 10000
  15. 1005  HGR : FOR X = 10 TO 260  STEP 45: FOR Y = 5 TO 155  STEP 10:N = Y *X: GOSUB 9900: NEXT Y,X: END 
  16. 9900  HCOLOR= 3: SCALE= 1: ROT= 1:N$ =  STR$(N): FOR J = 1 TO  LEN(N$)
  17. 9910  DRAW  VAL( MID$ (N$,J,1)) +1 AT (X -7) +(J *7),Y: NEXT J: RETURN 
  18. 10000  HIMEM: 37888
  19. 10005  POKE 232,0: POKE 233,148: FOR I = 37888 TO 38017: READ J: POKE I,J: NEXT : RETURN 
  20. 10010  DATA  10,0,22,0,36,0,44,0,54,0,66,0,76,0,88,0,99,0,108,0,119,0
  21. 10015  DATA  12,37,28,63,23,54,46,30,14,45,12,36,4,0,36,188,150,18,45,28,36,0
  22. 10020  DATA  101,228,63,23,150,241,46,45,37,0,12,12,60,63,183,146,21,45,12,228,7,0
  23. 10025  DATA  58,39,12,12,12,54,174,55,62,0,56,39,44,45,245,170,54,23,63,28,4,0
  24. 10030  DATA  117,246,63,28,36,229,12,12,45,6,0,12,12,60,63,183,82,30,46,0
  25. 10035  DATA  231,100,45,21,246,14,246,63,28,36,0,231,100,45,21,54,119,30,30,63,4,0